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Logon Script For Envoy 100 Access 


Display Screen 2a-2.1; 
{Sec specifications* for screens} 

OpenFHe C:\DPACADRS.ENV; 
ReadFlle Into DataPac_Address{i]; 
Number_Of_Addresses = 1; 

{Load the Datapac addreses into an array with the most likely 
addresses at the top - this file created at initial setnp) 

Readln AccountJD from ID field; 
Fill password field with X's; 

Disable keyboard echo during input to password field; 

Readln Password from password field; 

Display message "Attempting Logon To Envoy 100"; 

Set Modem To 8N1 2400 Baud; 

Attempts = 0;. 

While Attempts < Maximum_Attempts Do 
Incr(Attempts); 

Begin Dialling DataPac_Access_Numbcr; 

{DataPac_Access_Numbcr will vary from site to site. This may be 
hard coded in at time of installation or retrieved from a file) 

Wait For TextString Response; 
If Response = "CONNECT 2400" Then 

Call Connected 
Else 

If Attempts = Maxim um_Attempts Then 
Cancel Session; 

Display Message "System Currently Unavailable"; 
Pause 10 seconds; 
Endlf; J 
Endlf; 
EndWhiic 
Hangup Modem; 
Clear Buffers 
Exit To Screen 2a; 
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CONNECTED: 

Send Text Siring "..<cr>"; 

Walt For TextString Containing "DATAPAC"; 

Attempt s False; 

Counter =1; 

While Not(Attempt) Do 

Enter DataPac_Addre8s[CounterJ; 

Walt For TextString Containing "USER NAME"; 

Send TextString Account_ID; 

Walt For TCxtStrJng Containing "PASSWORD"; 

Send TextString Password; 

Walt For TextString Response; 
If Response = "WELCOME TO ENVOY100" 

Attempt = True . 
Else 

Ihcr(Counter); 

If Counter > Number_Of_Addresses Then 
Attempt = True 
Else 

Send TextString m *P"; 
Send TextString "CLR <cr>"; 

{this places the session into DATAPAC command mode, with the Cr R 
command returning the session back to point where the Datapac ' 
address is to be 'entered} 

Endlf: 
Endif; 
EndWhilc; 

If Counter <= Number_Of_Addressefi then 
Load VT100 Emulation: 
Open Envoy Access Window; 

(User operates in interactive session under VT100 emulation) 

Wait for TextrString "DATAPAC: call cleared - remote 

request"; 

Else 

Display Message "UNABLE TO LOGON WITH ID AND PASSWORD 
GIVEN"; 

. Endlf; 
Return; 
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Logon Script For INET2000 Access 
***** Denotes difference In script from Envoy access 

Display Screen 2a-2.1; 

fSee specifications for screens} 

OpenFUe C:\DPACADRSJNT- 
ReadFlle Into DataJ> ac _Addressm; 
Nomber.Of.Addresses .« i; 

Readln .AccountJD from ID field; 
rill password field with XV 

R^i? p eyl>0aT , d f h0 ^ in P Ut t0 P assw °* field- 
Readln Password from password field; 

Se?ML mCS ? g o " AMCmptin « Lo * on To Envoy 100- 
Set Modem To 8N1 2400 Baud- ' 

Attempts = 0- ' 

Begin Dialling DataPac_Access_Number; 

"™ .He to site. This may be 
at time of installation or retrieved from a file) 

Walt For TextString Response; 
If Response =, "CONNECT 2400" Then 

fc-ail Connected 
Else 

££'7o ' SyS * m Cu ™'* u »^'.-: 

Endlf; 
Endlf; 
. EndWhile 
Hangup Modem; 
Clear Buffers 

Exit To Screen 2a; 
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CONNECTED: 

Send Text String \.<cr> w ; 

Walt For TextString Containing "DATAPAC- 

Attempt » False; 

Counter =1; 

While Not(Attempt) Do 

Enter DHtaPac.AddresslCounterJ- 

Walt For TextString Containing "USER NAME"- 

Send TextString Account^; 

Wait For TextString Containing "PASSWORD"- 

Send TextString Password; 

Wait For TextString Response; 
If Response = "WELCOME TO iNET2000" 

Attempt = True 
Else ^ 

Incr(Counter); 

If Counter > NumbcrlOLAddresses Then 
Attempt » True 
Else 

Send TextString "*?"; 
Send TextString "CLR <cr>"; 

"^anTretn^ -ode. with the CLR 

address is to. be entered) thC Datapac 

Endlf; 
Endif; 
EndWhlle; 

V 6 !!^,^ Nu ^bcr_Of.Addresses then 
Load VT100 Emulation; 
Open Envoy Access Window; 

fUser operates in interactive session under VT100 emulation] 

Wait for TextrString "DATAPAC: call cleared - remote 

Else reqUcsr; 

Display Message TWA^to LOGON WITH ID AND PASSWORD 

Endlf; 
Return; 


